MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00969_Gestion du Moteur de la Navig.ls

Text File | 1995-08-06 | 7.3 KB | 240 lines

on aide
  global SprFondBar, SprFondBarII, CastEfface
  PlayClick()
  EffaceTexteRoll()
  EffacePictRoll()
  puppetSprite(42, 1)
  set the castNum of sprite 42 to the number of cast "EcranAide"
  set the castNum of sprite SprFondBar to the number of cast "N_BarretteAide"
  set the castNum of sprite SprFondBarII to CastEfface
  PuppetTransit(50, 1, 20, 1)
  updateStage()
  set Champs to "42  R_AideEnCours "
  InitRollTexte(Champs)
  SetDcBarrette(0)
  SetDcRollOver(0)
end

on ClicAide
  PlayClick()
  dontPassEvent()
  FalseReste()
  UnLoadReste()
  InitNavig()
  GoFrame("ResetNavig")
end

on InitnavigBase
  global DiskouCD
  PlaySoundTest(2, "Puppet", "Hypernav3")
  updateStage()
  puppetTempo(60)
  if DiskouCD = 0 then
    InitNameCast()
  end if
  SetTransit("1 3")
end

on InitNavig
  InitBarrette("000")
  InitRollNavigPlus()
  InitanimOrigine()
end

on InitRollNavigPlus
  global listChampsNavig
  set PistDepart to 10
  set PistDepart to PistDepart - 1
  set Champs to EMPTY
  set Pz to 2
  repeat with compt = 1 to getAt(listChampsNavig, 1)
    set Champs to Champs & string(PistDepart + compt) & " "
    set Champs to Champs & "C" & string(1 + getAt(listChampsNavig, Pz + 3)) & "_" & getAt(listChampsNavig, Pz) & " "
    set Champs to Champs & "C3_" & getAt(listChampsNavig, Pz) & " "
    set Champs to Champs & "R_Article" & " "
    set Pz to Pz + 5
  end repeat
  InitRollGen(Champs)
  set Champs2 to "8 LABOU1 LABOU2 R_Boutique 6 Abon_et Abon_al R_Abonnement"
  AjouteRollGen(Champs2)
end

on InitNameCast
  global listChampsNavig
  set CastDepart to the number of cast "RepereCastTV" + 1
  set FrameDepart to the number of cast "RepereCastFrame" + 1
  set Pz to 2
  repeat with compt = 1 to getAt(listChampsNavig, 1)
    set the name of cast CastDepart to "C1_" & getAt(listChampsNavig, Pz)
    set the name of cast (CastDepart + 1) to "C2_" & getAt(listChampsNavig, Pz)
    set the name of cast (CastDepart + 2) to "C3_" & getAt(listChampsNavig, Pz)
    set CastDepart to CastDepart + 3
    if getAt(listChampsNavig, Pz + 2) <> 0 then
      set the name of cast FrameDepart to "F1_" & getAt(listChampsNavig, Pz)
      set FrameDepart to FrameDepart + 1
    end if
    set Pz to Pz + 5
  end repeat
end

on InitDuCadre Piste, NumCast, PosAnim
  global listChampsNavig
  set SpriteFrame to 30
  puppetSprite(SpriteFrame, 1)
  set the locH of sprite SpriteFrame to the locH of sprite Piste
  set the locV of sprite SpriteFrame to the locV of sprite Piste
  set the castNum of sprite SpriteFrame to NumCast
  updateStage()
  set NbrLig to getAt(listChampsNavig, PosAnim + 2)
  set Ycoeff to 19
  set Xcoeff to 186
  set SpriteFrameConsulte to 31
  puppetSprite(SpriteFrameConsulte, 1)
  set FrameConsulte to getAt(listChampsNavig, PosAnim + 4)
  set CastFrameConsulte to the number of cast "N_FramesConsulte"
  set Champs to EMPTY
  repeat with AccuA = 1 to NbrLig
    if char AccuA of FrameConsulte = "1" then
      set Champs to Champs & " •" & RETURN
      next repeat
    end if
    set Champs to Champs & "  " & RETURN
  end repeat
  set the text of cast CastFrameConsulte to Champs
  set the textHeight of cast CastFrameConsulte to Ycoeff
  set the castNum of sprite SpriteFrameConsulte to CastFrameConsulte
  set the locV of sprite SpriteFrameConsulte to the top of sprite SpriteFrame + 2
  set the locH of sprite SpriteFrameConsulte to the right of sprite SpriteFrame - 165
  set SpriteCadreFrame to 33
  puppetSprite(SpriteCadreFrame, 1)
  set the locH of sprite SpriteCadreFrame to the left of sprite SpriteFrame + 0
  set the locV of sprite SpriteCadreFrame to the top of sprite SpriteFrame + 0
  updateStage()
  set Champs to "ClicSurCadre(1) R_Chapitre ClicSurCadre(2) R_Chapitre ClicSurCadre(3) R_Chapitre ClicSurCadre(4) R_Chapitre ClicSurCadre(5) R_Chapitre ClicSurCadre(6) R_Chapitre ClicSurCadre(7) R_Chapitre ClicSurCadre(8) R_Chapitre ClicSurCadre(9) R_Chapitre ClicSurCadre(10) R_Chapitre ClicSurCadre(11) R_Chapitre ClicSurCadre(12) R_Chapitre"
  InitRollCadre(SpriteCadreFrame, "CadreFrame", 1, NbrLig, Xcoeff, Ycoeff, 0, 0, Champs)
end

on AnnuleFrame
  global CastEfface
  set SpriteFrame to 30
  set the castNum of sprite SpriteFrame to CastEfface
  set SpriteFrameConsulte to 31
  set the castNum of sprite SpriteFrameConsulte to -1
  set SpriteCadreFrame to 33
  set the castNum of sprite SpriteCadreFrame to CastEfface
  SetDcRollCadre()
end

on InitanimOrigine
  global MemoNavPuce, listChampsNavig, CastEfface
  set NumSprOrigine to 29
  puppetSprite(NumSprOrigine, 1)
  set AnimTV to word 1 of MemoNavPuce
  set PosAnim to getOne(listChampsNavig, AnimTV)
  if PosAnim = 0 then
    set the castNum of sprite NumSprOrigine to CastEfface
  else
    set Piste to (PosAnim / 5) + 10
    set the locH of sprite NumSprOrigine to the locH of sprite Piste
    set the locV of sprite NumSprOrigine to the locV of sprite Piste
    set the castNum of sprite NumSprOrigine to the number of cast "TVanimOrigin"
    SetDcMacroVar("ClignAnimOrigine")
  end if
end

on ClignAnimOrigine
  global CastEfface
  if (the ticks / 30 mod 2) = 1 then
    set the castNum of sprite 29 to the number of cast "TVanimOrigin"
  else
    set the castNum of sprite 29 to CastEfface
  end if
end

on ClicSurTV
  PlayClick()
  set NumDuCast to the mouseCast
  ClicSurTVsuite(NumDuCast)
end

on ClicSurTVsuite NumDuCast
  global listChampsNavig
  if NumDuCast = -1 then
    return AnnuleFrame()
  end if
  set NomDuCast to the name of cast NumDuCast
  set LenDuCast to length(NomDuCast)
  if LenDuCast < 5 then
    return AnnuleFrame()
  end if
  set NomAnim to chars(NomDuCast, 4, LenDuCast)
  set PosAnim to getOne(listChampsNavig, NomAnim)
  if PosAnim = 0 then
    return AnnuleFrame()
  end if
  if getAt(listChampsNavig, PosAnim + 2) = 0 then
    return DirectSurAnim(NomAnim)
  end if
  set Piste to RecupPisteClic(10, 24, NumDuCast)
  set RepereClic to the bottom of sprite Piste - the mouseV
  if RepereClic > 16 then
    return DirectSurAnim(NomAnim)
  end if
  set SpriteFrame to 30
  set NumCast to the number of cast ("F1_" & NomAnim)
  if NumCast = the castNum of sprite SpriteFrame then
    return DirectSurAnim(NomAnim)
  end if
  set NomMacro to "InitDuCadre(" & string(Piste) & "," & string(NumCast) & "," & string(PosAnim) & ")"
  CallM(NomMacro)
end

on DirectSurAnim NomAnim
  global listRollCadre
  if listRollCadre = list() then
    return CallMpPara("GoMovie", ":" & NomAnim)
  end if
  CallM("AnnuleFrame")
end

on ClicSurCadre Ligne
  global listChampsNavig
  PlayClick()
  set SpriteFrame to 30
  set NumDuCast to the castNum of sprite SpriteFrame
  if NumDuCast = -1 then
    return AnnuleFrame()
  end if
  set NomDuCast to the name of cast NumDuCast
  set LenDuCast to length(NomDuCast)
  if LenDuCast < 5 then
    exit
  end if
  set NomAnim to chars(NomDuCast, 4, LenDuCast)
  set PosAnim to getOne(listChampsNavig, NomAnim)
  if PosAnim = 0 then
    return AnnuleFrame()
  end if
  set listFrame to getAt(listChampsNavig, PosAnim + 1)
  set NomAnim to ":" & getAt(listFrame, (Ligne * 2) - 1)
  set NomFrame to getAt(listFrame, Ligne * 2)
  CallMpPara("GoMovieRepere", NomAnim, NomFrame)
end

on ClicSurFond
  AnnuleFrame()
  PlayClick()
end

on ClicSurAnimOrigine
  repeat with compt = 10 to 26
    if rollOver(compt) then
      set NumCast to the castNum of sprite compt
      if NumCast > 0 then
        set NomMacro to "ClicSurTVsuite(" & string(NumCast) & ")"
        return CallM(NomMacro)
      end if
    end if
  end repeat
end